Function Է¿Ϸ( As MSForms.UserForm) As Boolean

    Dim Ʈ As MSForms.Control
    Dim üũ As Boolean
    
    üũ = True
    
    For Each Ʈ In .Controls
    
        Select Case TypeName(Ʈ)
        
            Case "TextBox", "ComboBox"
            
                If Len(Ʈ.Value) = 0 Then
                    üũ = False
                    Exit For
                End If
                
            Case Else
            
        End Select
    
    Next
    
    Է¿Ϸ = üũ

End Function